;;; -*- Mode:LISP; Package:USER; Fonts:(CPTFONT); Base:10 -*-

;;;Daniel' LISPM init file

(setq si:user-id "ddb")

(tv:white-on-black)

(login-setq *read-base* 10.                     ; Human bases
            *print-base* 10.
            fs:user-personal-name "Badger, Daniel"
            fs:user-personal-name-first-name-first "Daniel D. Badger II")

;;;Make WHO-LINE DOC window readable
(SEND TV:WHO-LINE-DOCUMENTATION-WINDOW :SET-FONT-MAP '(HL10B))
(push '(send tv:who-line-documentation-window :set-font-map '(cptfont)) logout-list)

(when (format:y-or-n-p-with-timeout (* 30 60.) T "Load patches and//or site info?")
  (load-patches :noselective))

;;;Zwei

(load (merge-pathnames "zwei-stuff" (fs:user-homedir)))

;;;Install standard commands for my convenience

(login-forms
  zwei:(set-comtab *standard-comtab*
              '(
        ;;set up hand keys to work like arrow keys
                #\hand-up com-up-real-line
                #\hand-down com-down-real-line
                #\hand-left com-backward
                #\hand-right com-forward
        ;;quick page moves
                #\meta-hand-up com-previous-page
                #\meta-hand-down com-next-page
        ;;Make roman keys do useful stuff
                #\roman-i com-backward-paragraph
                #\roman-ii com-forward-paragraph
                #\roman-iii com-beginning-of-line
                #\roman-iv com-end-of-line
                #\meta-roman-i com-correct-spelling
        ;; Untabify (change tab to spaces)
                #\control-i com-untabify
        ;;Make delete do rubout
                #\delete com-rubout
        ;;Make byte specifiers
                #\hyper-b COM-EVALUATE-byte-spec-AND-REPLACE-INTO-BUFFER
                #\hyper-. com-edit-definition-next-sexp
                #\hyper-w com-multiple-list-callers-into-buffer
                #\hyper-f com-find-buffer
                )))
